Hallo Juergen,
vielen Dank fuer die Antwort. Die doppelte Zuordnung habe ich nur gemacht um pruefen zu koennen, ob ich die Variabel "SearchString" richtig definiert habe, da es etwas laenger her ist das ich mit Delphirumgespielt habe.
Generell ist es so, das ich regelmaeßig Dateien durchsuchen muss, die sich staendig aendern. Um dies zu vereinfachen, wollte ich mir ein Tool basteln, welches die Textdateien nach diesem String durchsucht. Ich habe hier auch schon ein paar Codebeispiele fuer Funktionalitaeten die ich spaeter einbauen moechte, aber ich will ja erst wieder das Gehen lernen
.
Hier mal ein Screenshot von dem was ich bis jetzt hatte:
http://i94.photobucket.com/albums/l8...BSG_delphi.png
Hoffe das erklaert es ein wenig besser. Werd gleich mal den o.g. Code ausprobieren.
Danke nochmal.
Johannes
- edit -
Hab das jetzt nochmal gemacht mit folgendem Code:
Delphi-Quellcode:
unit BSG;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type
TfrmMain =
class(TForm)
Label1: TLabel;
SearchString:
String;
LblSearchTxt: TLabel;
EdtSearchTxt: TEdit;
BtnGo: TButton;
private
{ Private declarations }
procedure SearchText;
procedure BtnGoClick(...);
public
{ Public declarations }
end;
var
frmMain: TfrmMain;
implementation
{$R *.dfm}
procedure TfrmMain.SearchText;
begin
// das Folgende wäre eine doppelte Zuordnung
SearchString := EdtSearchTxt.Text;
SearchString := Label1.Caption;
end;
procedure TfrmMain.BtnGoClick(...);
end.
Und bekomme immer die Fehlermeldung "expected an identifier but String found." Heißt das, das ich irgendwo ein ";" vergessen habe?