Apuva!

http://www.helsinki.fi/ml/valinnat/tktl.shtml

No joku taulukko niistä tiedoista (osoitintaulukko merkkijonoihin..) ja sitten strchr() ja strstr() kehiin..jos ei tarvii sen älykkäämpi olla.

Sitten jos oikeesti pitäs olla jotain tietokantaa kaupungeista,maanosista ja asukasmääristä niin tarvii jotain linkitettyä listaa tai puita..

vielä millä luokkakirjastoilla meinaat koodailla, se vaikuttaa melkoisesti siihen miten helposti ohjelma syntyy.

C ? Et hankalampaa keksinyt?

Luettuasi allaolevan esimerkin voit vain ihmetellä, miksi kukaan ohjelmoi C :lla...
se taas on harvinaisen selava kieli...

DELPHIllä homma skulaa NÄIN helposti:


unit TESTMf;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

(*
Formille siis pudotettu komponenttipaletista
TEdit
TButton
TMemo
ja sitten nimetty nämä:
edhakuKriteeri: TEdit;
bnHaku: TButton;
memTulokset: TMemo;
Ja lopulta Object Inspectorin Events -välilehdellä
asetettu tapahtumakäsittelijät bnHaku.onClick
sekä formille OnCreate jaOnDestroy.
*)

type
TForm1 = class(TForm)
edhakuKriteeri: TEdit;
bnHaku: TButton;
memTulokset: TMemo;
procedure bnHakuClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

var
TiedotSL : TStringList;

procedure TForm1.bnHakuClick(Sender: TObject);
var
i : Integer;
p1 : Integer;
TuloksetSL : TStrings;
begin
// TiedotSL : TStringList sisältää merkkijonot tyyliin:
// 'Suomi Helsinki 850 000'
// Formilla on memTulokset -niminen TMemo, johon tulee hakutulokset...
// tai ilmoitus, ettei niitä ole.

TuloksetSL := memTulokset.Lines;
TuloksetSL.BeginUpdate;
try
TuloksetSL.Clear;
for i := 0 to TiedotSL.Count-1 do begin
//
p1 := pos(edhakuKriteeri.Text, TiedotSL[i]);
if p1 0 then TuloksetSL.Add(TiedotSL[i]);
//
end;
if TuloksetSL.Count < 1
then TuloksetSL.Add('Listassa ei ole "' edhakuKriteeri.Text '"-nimistä merkkijonoa');

finally
TuloksetSL.EndUpdate;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
TiedotSL := TStringList.Create;
//
TiedotSL.Add('Suomi Helsinki 850 000');
TiedotSL.Add('Ranska Pariisi 8 700 000');
TiedotSL.Add('Kiina Peking 6 710 000');
TiedotSL.Add('Saksa Berliini 3 310 000');
TiedotSL.Add('Venäjä Moskova 8 900 000');
TiedotSL.Add('Malta Valetta 9 200');

end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
TiedotSL.Free;
end;

end.